   4 CLEAR ;J=0;NT=0
   5 CLEAR ;BC=240;FC=7;XY=-2367;LINE -45,15,3;XY=4051;LINE -12,-27,3;XY=-3534;LINE 70,25,3
  10 XY=6470;LINE 79,14,3;XY=-544;LINE 0,25,3;XY=6400;LINE 16,2,3;XY=3870
  15 LINE 70,-40,3;XY=-1015;LINE 30,15,3;BOX 0,-10,9,2,3;XY=-2812;LINE 20,-40,3;XY=-2564
  20 LINE -20,-40,3;XY=6577;LINE -48,-40,3;BOX 0,-40,160,2,3
  30 M=-60;FOR Z=1TO 2;BOX M,-38,9,3,3;BOX M,-35,3,3,3;BOX M-2,-38,1,1,3;BOX M+2,-38,1,1,3;M=60;NEXT Z
  40 D=RND (9);D=D×5;F=RND (2);E=D÷5;G=30;L=0;J=J+1;IF J=5BC=160;CLEAR ;GOTO 550
  50 IF F=1CY=40;PRINT " WIND DIRECTION",#1," E ◄",#3,D," MPH
  60 IF F=2CY=40;PRINT " WIND DIRECTION",#1," W ► ",#1,D," MPH
  70 FOR Z=1TO 2000;NEXT Z;CY=40;PRINT "                          "
  80 FOR A=80TO -80STEP -2;GOSUB 400;IF TR(1)=1GOTO 200
  85 IF A>65GOTO 110
  90 Q=RND (18);IF Q=3LINE 60,-32,1=XY;H=XY;GOSUB 600
 100 IF Q=4LINE -60,-32,1=XY;H=XY;GOSUB 600
 110 GOSUB 400;NEXT A;GOTO 5
 115 FOR W=1TO 1000;NEXT W;RETURN 
 200 B=21;P=A+2;FOR S=BTO -40STEP -4;GOSUB 500;GOSUB 400;IF A<-80GOTO 230
 210 IF G>46GOTO 230
 220 A=A-14;G=G+3;GOSUB 400
 230 GOSUB 500;L=3;CY=-5;CX=0;PRINT " "
 235 IF P<=2IF P>=-2IF S=-11GOSUB 520;GOSUB 115;CLEAR ;FC=135;GOTO 650
 240 IF F=1P=P-E
 250 IF F=2P=P+E
 270 IF S<-38GOSUB 520;GOSUB 300;GOSUB 115;GOTO 5
 280 IF P>-79IF P<79NEXT S;GOTO 40
 290 GOSUB 300;GOSUB 115;GOTO 5
 300 CY=40;CX=-20;PRINT "NICE TRY";CY=24;PRINT "  BETTER LUCK NEXT TIME";RETURN 
 400 BOX A-2,G,1,1,3;BOX A,G,5,2,3;BOX A+2,G+1,1,1,3;RETURN 
 500 IF L<2GOTO 520
 510 BOX P,S+8,9,1,3;BOX P,S+9,7,1,3;BOX P,S+10,5,1,3
 520 BOX P,S+2,2,2,3;RETURN 
 550 CY=40;PRINT " MOUNTAIN FORCES SURRENDER";CY=24;PRINT "    SUPPLIES DEPLETED
 560 CY=0;PRINT "     MISSION: AIR DROP";CY=-16;PRINT "      *UNSUCCESSFUL*";STOP
 600 R=A+RND (20);LINE R,G,3;XY=H;LINE R,G,3;NT=1;MU=16;&(23)=255;MU=14;&(21)=255;MU=16;NT=0;&(23)=0;&(21)=0
 610 IF R<A+3GOSUB 400;FOR C=GTO -38STEP -6;GOSUB 700;GOSUB 700;NEXT C;GOTO 800
 620 RETURN 
 650 CY=40;PRINT "    SUPPLIES RECEIVED";CY=24;PRINT "     ENEMY RETREATING
 660 CY=0;PRINT "     MISSION: AIR DROP";CY=-24;CX=-26;PRINT "*COMPLETE*";STOP
 700 BOX A,C-3,1,1,3;BOX A+4,C,4,2,3;BOX A-3,C,4,2,3;BOX A,C,3,5,3;BOX A,C+3,5,1,3;RETURN 
 800 NT=2;&(21)=255;FOR N=255TO 20STEP -3;BC=N;MU=Y;&(23)=N;NEXT N;&(21)=0;NT=0;BC=80;CLEAR ;CY=8;PRINT "     MISSION SCRUBBED
 810 CY=-8;PRINT "     MOUNTAIN CAPTURED
>:RETURN ;RUN 
